| Filename | (eval 1032)[/usr/share/perl/5.10/CGI.pm:869] |
| Statements | Executed 94 statements in 654µs |
| Eval Invoked At | /usr/share/perl/5.10/CGI.pm line 869 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 13 | 10 | 5 | 2.04ms | 3.54ms | CGI::cookie |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 3.54ms (2.04+1.50) within CGI::cookie which was called 13 times, avg 272µs/call:
# 2 times (106µs+158µs) by C4::Auth::ParseSearchHistoryCookie at line 1792 of /usr/share/koha/lib/C4/Auth.pm, avg 132µs/call
# 2 times (66µs+83µs) by CGI::Session::load at line 707 of CGI/Session.pm, avg 75µs/call
# 2 times (34µs+61µs) by C4::Templates::getlanguage at line 331 of /usr/share/koha/lib/C4/Templates.pm, avg 47µs/call
# once (1.59ms+278µs) by C4::Templates::getlanguage at line 832 of CGI.pm
# once (54µs+383µs) by C4::Auth::checkauth at line 812 of /usr/share/koha/lib/C4/Auth.pm
# once (59µs+311µs) by main::RUNTIME at line 648 of /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
# once (43µs+71µs) by C4::Auth::get_template_and_user at line 366 of /usr/share/koha/lib/C4/Auth.pm
# once (32µs+52µs) by C4::Auth::checkauth at line 709 of /usr/share/koha/lib/C4/Auth.pm
# once (32µs+52µs) by main::RUNTIME at line 691 of /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
# once (31µs+50µs) by main::RUNTIME at line 130 of /usr/share/koha/opac/cgi-bin/opac/opac-search.pl | ||||
| 2 | 13 | 85µs | 13 | 121µs | my($self,@p) = self_or_default(@_); # spent 121µs making 13 calls to CGI::self_or_default, avg 9µs/call |
| 3 | 13 | 154µs | 13 | 558µs | my($name,$value,$path,$domain,$secure,$expires,$httponly) = # spent 558µs making 13 calls to CGI::Util::rearrange, avg 43µs/call |
| 4 | rearrange([NAME,[VALUE,VALUES],PATH,DOMAIN,SECURE,EXPIRES,HTTPONLY],@p); | ||||
| 5 | |||||
| 6 | 13 | 175µs | require CGI::Cookie; | ||
| 7 | |||||
| 8 | # if no value is supplied, then we retrieve the | ||||
| 9 | # value of the cookie, if any. For efficiency, we cache the parsed | ||||
| 10 | # cookies in our state variables. | ||||
| 11 | 13 | 10µs | unless ( defined($value) ) { | ||
| 12 | 11 | 91µs | 11 | 197µs | $self->{'.cookies'} = CGI::Cookie->fetch # spent 197µs making 11 calls to CGI::Cookie::fetch, avg 18µs/call |
| 13 | unless $self->{'.cookies'}; | ||||
| 14 | |||||
| 15 | # If no name is supplied, then retrieve the names of all our cookies. | ||||
| 16 | 11 | 74µs | return () unless $self->{'.cookies'}; | ||
| 17 | return keys %{$self->{'.cookies'}} unless $name; | ||||
| 18 | return () unless $self->{'.cookies'}->{$name}; | ||||
| 19 | return $self->{'.cookies'}->{$name}->value if defined($name) && $name ne ''; | ||||
| 20 | } | ||||
| 21 | |||||
| 22 | # If we get here, we're creating a new cookie | ||||
| 23 | 2 | 3µs | return undef unless defined($name) && $name ne ''; # this is an error | ||
| 24 | |||||
| 25 | 2 | 1µs | my @param; | ||
| 26 | 2 | 4µs | push(@param,'-name'=>$name); | ||
| 27 | 2 | 3µs | push(@param,'-value'=>$value); | ||
| 28 | 2 | 2µs | push(@param,'-domain'=>$domain) if $domain; | ||
| 29 | 2 | 800ns | push(@param,'-path'=>$path) if $path; | ||
| 30 | 2 | 700ns | push(@param,'-expires'=>$expires) if $expires; | ||
| 31 | 2 | 900ns | push(@param,'-secure'=>$secure) if $secure; | ||
| 32 | 2 | 2µs | push(@param,'-httponly'=>$httponly) if $httponly; | ||
| 33 | |||||
| 34 | 2 | 48µs | 2 | 387µs | return new CGI::Cookie(@param); # spent 387µs making 2 calls to CGI::Cookie::new, avg 193µs/call |
| 35 | } | ||||
| 36 | |||||
| 37 | ; |